﻿<%
Response.write "<P align=center><TABLE border=2 cellpadding=6 bgcolor=#e0f0d0><TR><TD><B>Session variables</B></TD><TD><B>Value</B></TD></TR>"
For Each name in Session.Contents
    If IsObject(Session.Contents(name)) Then
	    Response.write "<TR><TD>" &name&"</TD><TD>Object&nbsp;</TD></TR>"
    Else
      	If IsArray(Session.Contents(name)) Then
        	Response.write "<TR><TD>" &name&"</TD><TD>Array&nbsp;</TD></TR>"
         	For each objArray in Session.Contents(name)
        		Response.write "<TR><TD>&nbsp;</TD><TD>"&Session.Contents(sessitem)(objArray)&"&nbsp;</TD></TR>"
         	Next
      	Else
		if isEmpty(Session.Contents(name)) then
	        	Response.write "<TR><TD>" &name&"</TD><TD>Empty&nbsp;</TD></TR>"
      	Else
		if isNULL(Session.Contents(name)) then
	        	Response.write "<TR><TD>" &name&"</TD><TD>Null&nbsp;</TD></TR>"
	else
	
			Response.write "<TR><TD>" &name&"</TD><TD>"&Session.Contents(name)&"&nbsp;</TD></TR>"
       	End If
    End If
    End If
    End If
Next 
Response.write "</TABLE>"
%>